C:::::::::::::::::::::OPEN_FILE::::::::::::::::::::::::::::::::::::
C.... This routine is used to print a simple menu for FLIP model
C.....This routime is called in OPEN_FILE() routine.

      SUBROUTINE PRINT_MENU()

      WRITE(*,*)"***************FLIP MENU******************************"
      WRITE(*,*)"*                                                    *"
      WRITE(*,*)"*                                                    *"
      WRITE(*,*)"* Enter run file(eg.F1990075.RUN) to start run       *"
      WRITE(*,*)"* OR                                                 *"
      WRITE(*,*)"* Enter print run file(FLIPRINT.RUN) to print data*"                                  *"
      WRITE(*,*)"******************************************************"
      WRITE(*,*)"PLEASE INPUT YOUR CHOICE OF FILE NAME(.RUN):"
      END